--whatList is the name of the field which has the list to use
global oPop, oList, gO
set oList to [:]
set oList to value(field whatList)
newPop()
put empty into popSide
if whichSide = "Left" then
put the StageLeft-16+popOffset(whatList) into popSide
else
put (the right of sprite whichSprite)+ the StageLeft-4 into popSide
end if
put (the top of sprite whichSprite)+the StageTop+8 into popTop
put 0 into defaultItem
if word 1 of whatList = "Quasars" then put count(oList) into defaultItem
oPop(mSetItemMark,0)
set it=oPop(mPopNum, popSide, popTop,defaultItem)
-- dmd repeat while the stillDown
-- dmd end repeat
if it > 0 then
--put ">>>" & oList
set p = getPropAt(oList, it)
--put ">>> property is: " & p
goGo(p)
end if
end myPopOLD
on newPop
global oPop,oList
if objectP(oPop) then
oPop(mDispose)
else
if the machineType = 256 then
openXLib "POPMENU.DLL"
else
openXLib "PopUp Menu XObj"
end if
end if
--put ">>> making a popup cast 2 (TOC.DIR)"
set oPop = PopMenu(mNew,dummyList(),999)
realList
end newPop
on dummyList
global oList
put empty into it
repeat with i = 1 to count(oList)
put getAt(oList,i) into m
put it&char 1 to 3 of m&";" into it
end repeat
delete the last char of it
return it
end dummyList
on realList
global oList,oPop
repeat with i = 1 to count(oList)
put getAt(oList,i) into m
if char 1 to 2 of m = "<U" then put char 3 to length(m) of m into m
oPop(mSetItem,i,m)
end repeat
end realList
on listToMenuItems aList
put "" into resultList
repeat with i = 1 to count(aList)
put resultList&getat(aList,i)&";" into resultList
end repeat
delete the last char of resultList
return resultList
end
on popOffset theList
return getOne([262:"Nebulae",302:"Supernova Remnants",307:"Planetary Nebulae",290:"Globular Star Clusters",302:"Open Star Clusters",288:"Individual Stars"],theList)
end popOffset
on myPlay theMovie,theChannel
if theMovie="TOC" then
playTOC
else if theMovie="it" then
playit
else if theMovie="it" then
playit
end if
end myPlay
on setPreloads
-- use for this movie only
-- birth with sbc
global gLastPreloadStartFrame, gLastPreloadEndFrame, gPreloadList, gPreloadIndex